require(tidyverse)

load("00_data/01_data_processed/policy_growth_data.Rdata")

policy_growth_plot <- policy_growth_data%>% 
  ggplot(aes(x=Year,y=count_diff)) + 
  geom_col(linewidth=.3,fill="grey80", color="black")+
  ylab("Additional environmental policy measures")+
  scale_y_continuous(breaks=c(0:10))+
  scale_x_continuous(breaks=c(1985:2005))+
  theme_bw()+
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1))

ggsave(policy_growth_plot, file="03_figures/figure3.pdf",height=4, width=8)
ggsave(policy_growth_plot, file="03_figures/figure3.jpg",height=4, width=8,dpi=600)


rm(list = ls())
 
